inherited fmFood: TfmFood
  Left = 370
  Top = 176
  Width = 1036
  Height = 908
  Caption = #1058#1077#1093#1085#1086#1083#1086#1075#1080#1095#1077#1089#1082#1080#1077' '#1082#1072#1088#1090#1099
  Constraints.MinHeight = 780
  Constraints.MinWidth = 1036
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 854
    Width = 1028
  end
  inherited Panel1: TPanel
    Width = 1028
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 858
    end
    inherited BitBtn2: TBitBtn
      Left = 946
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 725
    Width = 1028
    Height = 129
    Align = alBottom
    Constraints.MaxHeight = 129
    TabOrder = 2
    object Label3: TLabel
      Left = 7
      Top = 9
      Width = 345
      Height = 13
      Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077' '#1084#1080#1082#1088#1086#1101#1083#1077#1084#1077#1085#1090#1086#1074' '#1080' '#1101#1085#1077#1088#1075#1077#1090#1080#1094#1077#1089#1082#1072#1103' '#1094#1077#1085#1085#1086#1089#1090#1100':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 4
      Top = 31
      Width = 264
      Height = 13
      Caption = #1055#1080#1097#1077#1074#1072#1103' '#1080' '#1101#1085#1077#1088#1075#1077#1090#1080#1095#1077#1089#1082#1072#1103' '#1094#1077#1085#1085#1086#1089#1090#1100' '#1073#1083#1102#1076#1072':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 281
      Top = 31
      Width = 249
      Height = 13
      Caption = 
        '                                                                ' +
        '                   '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object dbgTechMap: TcxGrid
      Left = 1
      Top = 49
      Width = 1026
      Height = 79
      Align = alBottom
      Anchors = [akLeft, akTop, akRight, akBottom]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      LookAndFeel.Kind = lfStandard
      object tvTechMap: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        NavigatorButtons.First.Visible = True
        NavigatorButtons.PriorPage.Visible = True
        NavigatorButtons.Prior.Visible = True
        NavigatorButtons.Next.Visible = True
        NavigatorButtons.NextPage.Visible = True
        NavigatorButtons.Last.Visible = True
        NavigatorButtons.Insert.Visible = False
        NavigatorButtons.Append.Visible = False
        NavigatorButtons.Delete.Visible = False
        NavigatorButtons.Edit.Visible = False
        NavigatorButtons.Post.Visible = False
        NavigatorButtons.Cancel.Visible = False
        NavigatorButtons.Refresh.Visible = False
        NavigatorButtons.SaveBookmark.Visible = False
        NavigatorButtons.GotoBookmark.Visible = False
        NavigatorButtons.Filter.Visible = False
        FilterBox.Position = fpTop
        OnEditing = tvTechMapEditing
        OnEditValueChanged = tvTechMapEditValueChanged
        DataController.DataSource = dsTechMap
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Kind = skCount
            FieldName = 'pid'
          end>
        DataController.Summary.SummaryGroups = <>
        OptionsBehavior.CellHints = True
        OptionsBehavior.IncSearch = True
        OptionsCustomize.ColumnFiltering = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Inserting = False
        OptionsView.NavigatorOffset = 10
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 1
        OptionsView.ColumnAutoWidth = True
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        Preview.Visible = True
        Styles.IncSearch = DMInv.cxKrasniyText
        Styles.Selection = DMInv.cxJoltiyFon
        Styles.Header = DMInv.cxSiniyText
        object tvTechMapYIELD: TcxGridDBColumn
          Caption = #1042#1099#1093#1086#1076' '#1075#1086#1090#1086#1074#1086#1075#1086' '#1087#1088#1086#1076#1091#1082#1090#1072', '#1075
          DataBinding.FieldName = 'YIELD'
          Width = 68
        end
        object tvTechMapENERGYVAL: TcxGridDBColumn
          Caption = #1069#1085#1077#1088#1075#1077#1090#1080#1095#1077#1089#1082#1072#1103' '#1094#1077#1085#1085#1086#1089#1090#1100', '#1082#1082#1072#1083
          DataBinding.FieldName = 'ENERGYVAL'
          Width = 42
        end
        object tvTechMapPROTEINS: TcxGridDBColumn
          Caption = #1041#1077#1083#1082#1080
          DataBinding.FieldName = 'PROTEINS'
          Width = 43
        end
        object tvTechMapFATS: TcxGridDBColumn
          Caption = #1046#1080#1088#1099
          DataBinding.FieldName = 'FATS'
          Width = 41
        end
        object tvTechMapCARBOHYDRATES: TcxGridDBColumn
          Caption = #1059#1075#1083#1077#1074#1086#1076#1099
          DataBinding.FieldName = 'CARBOHYDRATES'
          Width = 43
        end
        object tvTechMapCACALCIUM: TcxGridDBColumn
          Caption = #1050#1072#1083#1100#1094#1080#1081
          DataBinding.FieldName = 'CACALCIUM'
          Width = 42
        end
        object tvTechMapMAGNESIUM: TcxGridDBColumn
          Caption = #1052#1072#1075#1085#1080#1081
          DataBinding.FieldName = 'MAGNESIUM'
          Width = 43
        end
        object tvTechMapPHOSPHORUS: TcxGridDBColumn
          Caption = #1060#1086#1089#1092#1086#1088
          DataBinding.FieldName = 'PHOSPHORUS'
          Width = 41
        end
        object tvTechMapFERRUM: TcxGridDBColumn
          Caption = #1046#1077#1083#1077#1079#1086
          DataBinding.FieldName = 'FERRUM'
          Width = 43
        end
        object tvTechMapVIT_A: TcxGridDBColumn
          Caption = #1042#1080#1090#1072#1084#1080#1085' '#1040
          DataBinding.FieldName = 'VIT_A'
          Width = 42
        end
        object tvTechMapVIT_B1: TcxGridDBColumn
          Caption = #1042#1080#1090#1072#1084#1080#1085' B1'
          DataBinding.FieldName = 'VIT_B1'
          Width = 43
        end
        object tvTechMapVIT_B2: TcxGridDBColumn
          Caption = #1042#1080#1090#1072#1084#1080#1085' B2'
          DataBinding.FieldName = 'VIT_B2'
          Width = 42
        end
        object tvTechMapVIT_PP: TcxGridDBColumn
          Caption = #1042#1080#1090#1072#1084#1080#1085' PP'
          DataBinding.FieldName = 'VIT_PP'
          Width = 42
        end
        object tvTechMapVIT_C: TcxGridDBColumn
          Caption = #1042#1080#1090#1072#1084#1080#1085' C'
          DataBinding.FieldName = 'VIT_C'
          Width = 42
        end
        object tvTechMapVIT_E: TcxGridDBColumn
          Caption = #1042#1080#1090#1072#1084#1080#1085' E'
          DataBinding.FieldName = 'VIT_E'
          Width = 43
        end
        object tvTechMapTEMPERATURE: TcxGridDBColumn
          Caption = #1058#1077#1084#1087#1077#1088#1072#1090#1091#1088#1072' '#1087#1086#1076#1072#1095#1080
          DataBinding.FieldName = 'TEMPERATURE'
          Width = 42
        end
        object tvTechMapREALIZATION: TcxGridDBColumn
          Caption = #1057#1088#1086#1082' '#1088#1077#1072#1083#1080#1079#1072#1094#1080#1080
          DataBinding.FieldName = 'REALIZATION'
          Width = 42
        end
        object tvTechMapNUMCOLLECTION: TcxGridDBColumn
          Caption = #1053#1086#1084#1077#1088' '#1090#1077#1093'. '#1082#1072#1088#1090#1099' '#1074' '#1089#1073#1086#1088#1085#1080#1082#1077
          DataBinding.FieldName = 'NUMCOLLECTION'
          Width = 76
        end
        object tvTechMapNAMECOLLECTION: TcxGridDBColumn
          Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1089#1073#1086#1088#1085#1080#1082#1072' '#1058#1077#1093'. '#1050#1072#1088#1090'.'
          DataBinding.FieldName = 'NAMECOLLECTION'
          Width = 76
        end
      end
      object cxGridLevel1: TcxGridLevel
        GridView = tvTechMap
      end
    end
    object dxBarDockControl3: TdxBarDockControl
      Left = 1
      Top = 1
      Width = 1026
      Height = 26
      Align = dalTop
      BarManager = dxBarManager1
    end
  end
  object Panel3: TPanel [3]
    Left = 0
    Top = 45
    Width = 450
    Height = 672
    Align = alClient
    Caption = 'Panel3'
    Constraints.MinWidth = 450
    TabOrder = 3
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 448
      Height = 55
      Align = alTop
      TabOrder = 0
      object Label1: TLabel
        Left = 7
        Top = 34
        Width = 44
        Height = 13
        Caption = #1041#1083#1102#1076#1072':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object dxBarDockControl1: TdxBarDockControl
        Left = 1
        Top = 1
        Width = 446
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
    end
    object Panel11: TPanel
      Left = 1
      Top = 56
      Width = 448
      Height = 46
      Align = alTop
      TabOrder = 1
      TabStop = True
      Visible = False
      object edSDNAME: TcxDBTextEdit
        Left = 9
        Top = 13
        DataBinding.DataField = 'SDNAME'
        DataBinding.DataSource = dlgDS
        TabOrder = 0
        Width = 250
      end
      object btSave: TBitBtn
        Left = 266
        Top = 10
        Width = 87
        Height = 25
        Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
        Default = True
        TabOrder = 2
        OnClick = btSaveClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object btCancel: TBitBtn
        Left = 354
        Top = 10
        Width = 87
        Height = 25
        Cancel = True
        Caption = #1054#1090#1084#1077#1085#1080#1090#1100
        TabOrder = 1
        OnClick = btCancelClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333000033338833333333333333333F333333333333
          0000333911833333983333333388F333333F3333000033391118333911833333
          38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
          911118111118333338F3338F833338F3000033333911111111833333338F3338
          3333F8330000333333911111183333333338F333333F83330000333333311111
          8333333333338F3333383333000033333339111183333333333338F333833333
          00003333339111118333333333333833338F3333000033333911181118333333
          33338333338F333300003333911183911183333333383338F338F33300003333
          9118333911183333338F33838F338F33000033333913333391113333338FF833
          38F338F300003333333333333919333333388333338FFF830000333333333333
          3333333333333333333888330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
    end
    object dbtl: TcxDBTreeList
      Left = 1
      Top = 102
      Width = 448
      Height = 569
      Align = alClient
      Bands = <
        item
        end>
      BufferedPaint = False
      DataController.DataSource = dlgDS
      DataController.ParentField = 'SDPARID'
      DataController.KeyField = 'SDID'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Tahoma'
      Font.Style = []
      LookAndFeel.Kind = lfOffice11
      LookAndFeel.NativeStyle = False
      LookAndFeel.SkinName = ''
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.DragFocusing = True
      OptionsBehavior.ExpandOnDblClick = False
      OptionsBehavior.MultiSort = False
      OptionsData.Editing = False
      OptionsData.Deleting = False
      OptionsView.CellAutoHeight = True
      OptionsView.ColumnAutoWidth = True
      OptionsView.Headers = False
      ParentFont = False
      RootValue = 36
      Styles.Content = DMInv.cxData
      TabOrder = 2
      OnChange = dbtlChange
      OnCustomDrawCell = dbtlCustomDrawCell
      OnDragDrop = dbtlDragDrop
      OnDragOver = dbtlDragOver
      object cxDBTreeList1cxDBTreeListColumn1: TcxDBTreeListColumn
        Styles.Content = DMInv.cxData
        DataBinding.FieldName = 'SDNAME'
        Width = 100
        Position.ColIndex = 0
        Position.RowIndex = 0
        Position.BandIndex = 0
        SortOrder = soAscending
      end
    end
  end
  object Panel4: TPanel [4]
    Left = 382
    Top = 45
    Width = 646
    Height = 672
    Align = alRight
    Caption = 'Panel4'
    TabOrder = 4
    object Panel7: TPanel
      Left = 1
      Top = 331
      Width = 644
      Height = 340
      Align = alBottom
      Caption = 'Panel7'
      TabOrder = 0
      DesignSize = (
        644
        340)
      object Label4: TLabel
        Left = 10
        Top = 47
        Width = 162
        Height = 13
        Caption = #1058#1077#1093#1085#1086#1083#1086#1075#1080#1103' '#1087#1088#1080#1075#1086#1090#1086#1074#1083#1077#1085#1080#1103':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 10
        Top = 4
        Width = 189
        Height = 13
        Caption = #1050#1086#1084#1084#1077#1088#1095#1077#1089#1082#1086#1077' '#1085#1072#1079#1074#1072#1085#1080#1077' '#1073#1083#1102#1076#1072':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 10
        Top = 191
        Width = 108
        Height = 13
        Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1073#1083#1102#1076#1072':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 10
        Top = 236
        Width = 154
        Height = 13
        Caption = #1053#1086#1084#1077#1088' '#1082#1072#1088#1090#1099' '#1074' '#1080#1089#1090#1086#1095#1085#1080#1082#1077':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label11: TLabel
        Left = 10
        Top = 284
        Width = 126
        Height = 13
        Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1090#1077#1093'. '#1082#1072#1088#1090#1099':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object cxDBMemo5: TcxDBMemo
        Left = 7
        Top = 64
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataBinding.DataField = 'COOKING'
        DataBinding.DataSource = dsTechMap
        ParentFont = False
        Properties.MaxLength = 2048
        Properties.ReadOnly = False
        Properties.OnEditValueChanged = cxDBMemo5PropertiesEditValueChanged
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 0
        Height = 121
        Width = 626
      end
      object cxDBTextEdit1: TcxDBTextEdit
        Left = 8
        Top = 21
        DataBinding.DataField = 'TMNAME'
        DataBinding.DataSource = dsTechMap
        ParentFont = False
        Properties.OnEditValueChanged = cxDBTextEdit1PropertiesEditValueChanged
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 1
        Width = 625
      end
      object dxDBLookupTreeView1: TdxDBLookupTreeView
        Left = 8
        Top = 208
        Width = 625
        Height = 24
        CanSelectParents = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 2
        TabStop = True
        Text = 'dxDBLookupTreeView1'
        TreeViewColor = clWindow
        TreeViewCursor = crDefault
        TreeViewFont.Charset = DEFAULT_CHARSET
        TreeViewFont.Color = clWindowText
        TreeViewFont.Height = -11
        TreeViewFont.Name = 'MS Sans Serif'
        TreeViewFont.Style = []
        TreeViewIndent = 19
        TreeViewReadOnly = False
        TreeViewShowButtons = True
        TreeViewShowHint = False
        TreeViewShowLines = True
        TreeViewShowRoot = True
        TreeViewSortType = stNone
        TreeViewStateImages = DMInv.ilBJTree
        OnCloseUp = dxDBLookupTreeView1CloseUp
        DisplayField = 'SDNAME'
        DividedChar = '.'
        ImageIndexField = 'SDISDELETE'
        ListSource = dsCATEGORY
        KeyField = 'TMCATEGORY'
        ListField = 'SDNAME'
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        ParentField = 'SDPARID'
        RootValue = 0
        TextStyle = tvtsShort
        DataField = 'TMCATEGORY'
        DataSource = dsTechMap
      end
      object cxDBTextEdit2: TcxDBTextEdit
        Left = 8
        Top = 256
        DataBinding.DataField = 'NUMCOLLECTION'
        DataBinding.DataSource = dsTechMap
        ParentFont = False
        Properties.OnEditValueChanged = cxDBTextEdit1PropertiesEditValueChanged
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 3
        Width = 121
      end
      object cxDBTextEdit3: TcxDBTextEdit
        Left = 8
        Top = 304
        DataBinding.DataField = 'NAMECOLLECTION'
        DataBinding.DataSource = dsTechMap
        ParentFont = False
        Properties.OnEditValueChanged = cxDBTextEdit1PropertiesEditValueChanged
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 4
        Width = 441
      end
    end
    object cxSplitter2: TcxSplitter
      Left = 1
      Top = 323
      Width = 644
      Height = 8
      HotZoneClassName = 'TcxMediaPlayer9Style'
      AlignSplitter = salBottom
      Control = Panel7
    end
    object Panel9: TPanel
      Left = 1
      Top = 1
      Width = 644
      Height = 55
      Align = alTop
      TabOrder = 2
      object Label2: TLabel
        Left = 7
        Top = 35
        Width = 187
        Height = 13
        Caption = #1058#1077#1093#1085#1086#1083#1086#1075#1080#1095#1077#1089#1082#1072#1103' '#1082#1072#1088#1090#1072' '#1073#1083#1102#1076#1072':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 204
        Top = 35
        Width = 249
        Height = 13
        Caption = 
          '                                                                ' +
          '                   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object dxBarDockControl2: TdxBarDockControl
        Left = 1
        Top = 1
        Width = 642
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
    end
    object dbgProd: TcxGrid
      Left = 1
      Top = 56
      Width = 644
      Height = 267
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      LookAndFeel.Kind = lfStandard
      object tvProd: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        NavigatorButtons.First.Visible = True
        NavigatorButtons.PriorPage.Visible = True
        NavigatorButtons.Prior.Visible = True
        NavigatorButtons.Next.Visible = True
        NavigatorButtons.NextPage.Visible = True
        NavigatorButtons.Last.Visible = True
        NavigatorButtons.Insert.Visible = False
        NavigatorButtons.Append.Visible = False
        NavigatorButtons.Delete.Visible = False
        NavigatorButtons.Edit.Visible = False
        NavigatorButtons.Post.Visible = False
        NavigatorButtons.Cancel.Visible = False
        NavigatorButtons.Refresh.Visible = False
        NavigatorButtons.SaveBookmark.Visible = False
        NavigatorButtons.GotoBookmark.Visible = False
        NavigatorButtons.Filter.Visible = False
        FilterBox.Position = fpTop
        DataController.DataSource = dsProd
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsBehavior.CellHints = True
        OptionsBehavior.IncSearch = True
        OptionsCustomize.ColumnFiltering = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Inserting = False
        OptionsView.NavigatorOffset = 10
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 1
        OptionsView.ColumnAutoWidth = True
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        Preview.Visible = True
        Styles.IncSearch = DMInv.cxKrasniyText
        Styles.Selection = DMInv.cxJoltiyFon
        Styles.Header = DMInv.cxSiniyText
        object tvProdSDNAME: TcxGridDBColumn
          Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1087#1088#1086#1076#1091#1082#1090#1072
          DataBinding.FieldName = 'SDNAME'
          Options.Editing = False
          Width = 163
        end
        object tvProdBRUTTO: TcxGridDBColumn
          Caption = #1041#1088#1091#1090#1090#1086', '#1075
          DataBinding.FieldName = 'BRUTTO'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DecimalPlaces = 4
          Properties.DisplayFormat = ',0.0000'#39#39';-,0.0000'#39#39
          Properties.OnEditValueChanged = tvProdBRUTTOPropertiesEditValueChanged
          Width = 190
        end
        object tvProdNETTO: TcxGridDBColumn
          Caption = #1053#1077#1090#1090#1086', '#1075
          DataBinding.FieldName = 'NETTO'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DecimalPlaces = 4
          Properties.DisplayFormat = ',0.0000;-,0.0000'
          Properties.OnEditValueChanged = tvProdNETTOPropertiesEditValueChanged
          Width = 161
        end
      end
      object cxGridLevel2: TcxGridLevel
        GridView = tvProd
      end
    end
  end
  object cxSplitter3: TcxSplitter [5]
    Left = 0
    Top = 717
    Width = 1028
    Height = 8
    HotZoneClassName = 'TcxMediaPlayer9Style'
    AlignSplitter = salBottom
    Control = Panel2
  end
  object cxSplitter1: TcxSplitter [6]
    Left = 374
    Top = 45
    Width = 8
    Height = 672
    HotZoneClassName = 'TcxMediaPlayer9Style'
    AlignSplitter = salRight
    Control = Panel4
  end
  inherited dlgDS: TDataSource
    DataSet = qSD
    Left = 128
    Top = 80
  end
  object dsProd: TDataSource
    DataSet = qProd
    Left = 536
    Top = 96
  end
  object qProd: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterOpen = qProdAfterOpen
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'Select t.*, sd.sdname'
      'from f_techprod t'
      'inner join sys_dic sd on sd.sdid=t.tpsdid'
      'where t.tmid = :sdid and'
      't.tpisdelete is null')
    UpdateObject = quProd
    GeneratorField.Field = 'SDID'
    Left = 568
    Top = 96
    ParamData = <
      item
        DataType = ftInteger
        Name = 'SDID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qProdTPID: TIntegerField
      FieldName = 'TPID'
      Origin = '"F_TECHPROD"."TPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qProdTMID: TIntegerField
      FieldName = 'TMID'
      Origin = '"F_TECHPROD"."TMID"'
    end
    object qProdTPSDID: TIntegerField
      FieldName = 'TPSDID'
      Origin = '"F_TECHPROD"."TPSDID"'
    end
    object qProdTPUSERENTER: TIBStringField
      FieldName = 'TPUSERENTER'
      Origin = '"F_TECHPROD"."TPUSERENTER"'
      Size = 40
    end
    object qProdTPTIMEENTER: TDateTimeField
      FieldName = 'TPTIMEENTER'
      Origin = '"F_TECHPROD"."TPTIMEENTER"'
    end
    object qProdTPUSEREDIT: TIBStringField
      FieldName = 'TPUSEREDIT'
      Origin = '"F_TECHPROD"."TPUSEREDIT"'
      Size = 40
    end
    object qProdTPTIMEEDIT: TDateTimeField
      FieldName = 'TPTIMEEDIT'
      Origin = '"F_TECHPROD"."TPTIMEEDIT"'
    end
    object qProdTPISDELETE: TIntegerField
      FieldName = 'TPISDELETE'
      Origin = '"F_TECHPROD"."TPISDELETE"'
    end
    object qProdSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qProdBRUTTO: TIBBCDField
      FieldName = 'BRUTTO'
      Origin = '"F_TECHPROD"."BRUTTO"'
      Precision = 18
      Size = 4
    end
    object qProdNETTO: TIBBCDField
      FieldName = 'NETTO'
      Origin = '"F_TECHPROD"."NETTO"'
      Precision = 18
      Size = 4
    end
  end
  object dsTechMap: TDataSource
    DataSet = qTechMap
    Left = 496
    Top = 552
  end
  object qTechMap: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'select t.*'
      'from f_techmap t'
      'where t.tmsdid=:sdid'
      'and t.tmisdelete is null')
    UpdateObject = quTechMap
    GeneratorField.Field = 'SDID'
    Left = 528
    Top = 552
    ParamData = <
      item
        DataType = ftInteger
        Name = 'SDID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qTechMapTMID: TIntegerField
      FieldName = 'TMID'
      Origin = '"F_TECHMAP"."TMID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qTechMapTMSDID: TIntegerField
      FieldName = 'TMSDID'
      Origin = '"F_TECHMAP"."TMSDID"'
    end
    object qTechMapCOOKING: TIBStringField
      FieldName = 'COOKING'
      Origin = '"F_TECHMAP"."COOKING"'
      Size = 2048
    end
    object qTechMapYIELD: TIntegerField
      FieldName = 'YIELD'
      Origin = '"F_TECHMAP"."YIELD"'
    end
    object qTechMapENERGYVAL: TIBBCDField
      FieldName = 'ENERGYVAL'
      Origin = '"F_TECHMAP"."ENERGYVAL"'
      Precision = 18
      Size = 2
    end
    object qTechMapPROTEINS: TIBBCDField
      FieldName = 'PROTEINS'
      Origin = '"F_TECHMAP"."PROTEINS"'
      Precision = 18
      Size = 2
    end
    object qTechMapFATS: TIBBCDField
      FieldName = 'FATS'
      Origin = '"F_TECHMAP"."FATS"'
      Precision = 18
      Size = 2
    end
    object qTechMapCARBOHYDRATES: TIBBCDField
      FieldName = 'CARBOHYDRATES'
      Origin = '"F_TECHMAP"."CARBOHYDRATES"'
      Precision = 18
      Size = 2
    end
    object qTechMapCACALCIUM: TIBBCDField
      FieldName = 'CACALCIUM'
      Origin = '"F_TECHMAP"."CACALCIUM"'
      Precision = 18
      Size = 2
    end
    object qTechMapMAGNESIUM: TIBBCDField
      FieldName = 'MAGNESIUM'
      Origin = '"F_TECHMAP"."MAGNESIUM"'
      Precision = 18
      Size = 2
    end
    object qTechMapPHOSPHORUS: TIBBCDField
      FieldName = 'PHOSPHORUS'
      Origin = '"F_TECHMAP"."PHOSPHORUS"'
      Precision = 18
      Size = 2
    end
    object qTechMapFERRUM: TIBBCDField
      FieldName = 'FERRUM'
      Origin = '"F_TECHMAP"."FERRUM"'
      Precision = 18
      Size = 2
    end
    object qTechMapVIT_A: TIBBCDField
      FieldName = 'VIT_A'
      Origin = '"F_TECHMAP"."VIT_A"'
      Precision = 18
      Size = 2
    end
    object qTechMapVIT_B1: TIBBCDField
      FieldName = 'VIT_B1'
      Origin = '"F_TECHMAP"."VIT_B1"'
      Precision = 18
      Size = 2
    end
    object qTechMapVIT_B2: TIBBCDField
      FieldName = 'VIT_B2'
      Origin = '"F_TECHMAP"."VIT_B2"'
      Precision = 18
      Size = 2
    end
    object qTechMapVIT_PP: TIBBCDField
      FieldName = 'VIT_PP'
      Origin = '"F_TECHMAP"."VIT_PP"'
      Precision = 18
      Size = 2
    end
    object qTechMapVIT_C: TIBBCDField
      FieldName = 'VIT_C'
      Origin = '"F_TECHMAP"."VIT_C"'
      Precision = 18
      Size = 2
    end
    object qTechMapVIT_E: TIBBCDField
      FieldName = 'VIT_E'
      Origin = '"F_TECHMAP"."VIT_E"'
      Precision = 18
      Size = 2
    end
    object qTechMapTEMPERATURE: TIBStringField
      FieldName = 'TEMPERATURE'
      Origin = '"F_TECHMAP"."TEMPERATURE"'
      Size = 255
    end
    object qTechMapREALIZATION: TIBStringField
      FieldName = 'REALIZATION'
      Origin = '"F_TECHMAP"."REALIZATION"'
      Size = 255
    end
    object qTechMapNUMCOLLECTION: TIBStringField
      FieldName = 'NUMCOLLECTION'
      Origin = '"F_TECHMAP"."NUMCOLLECTION"'
      Size = 255
    end
    object qTechMapNAMECOLLECTION: TIBStringField
      FieldName = 'NAMECOLLECTION'
      Origin = '"F_TECHMAP"."NAMECOLLECTION"'
      Size = 2048
    end
    object qTechMapTMUSERENTER: TIBStringField
      FieldName = 'TMUSERENTER'
      Origin = '"F_TECHMAP"."TMUSERENTER"'
      Size = 40
    end
    object qTechMapTMTIMEENTER: TDateTimeField
      FieldName = 'TMTIMEENTER'
      Origin = '"F_TECHMAP"."TMTIMEENTER"'
    end
    object qTechMapTMUSEREDIT: TIBStringField
      FieldName = 'TMUSEREDIT'
      Origin = '"F_TECHMAP"."TMUSEREDIT"'
      Size = 40
    end
    object qTechMapTMTIMEEDIT: TDateTimeField
      FieldName = 'TMTIMEEDIT'
      Origin = '"F_TECHMAP"."TMTIMEEDIT"'
    end
    object qTechMapTMISDELETE: TIntegerField
      FieldName = 'TMISDELETE'
      Origin = '"F_TECHMAP"."TMISDELETE"'
    end
    object qTechMapTMNAME: TIBStringField
      FieldName = 'TMNAME'
      Origin = '"F_TECHMAP"."TMNAME"'
      Size = 255
    end
    object qTechMapTMCATEGORY: TIntegerField
      FieldName = 'TMCATEGORY'
      Origin = '"F_TECHMAP"."TMCATEGORY"'
    end
  end
  object dsSelectProd: TDataSource
    DataSet = qSelectProd
    Left = 600
    Top = 240
  end
  object qSelectProd: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT t1.*, SD1.SDISDELETE, t1.sdname || (select PARENTS_LIST f' +
        'rom   SP_GETTREEPARENTS(t1.SDID,13363)) as sdnames'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID  = 13363'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39' '#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'order by 1')
    GeneratorField.Field = 'SDID'
    Left = 640
    Top = 240
    object qSelectProdSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
    object qSelectProdSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSelectProdSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSelectProdSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
    object qSelectProdSDNAMES: TIBStringField
      FieldName = 'SDNAMES'
      ProviderFlags = []
      Size = 4352
    end
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qSDAfterInsert
    AfterOpen = qSDAfterOpen
    CachedUpdates = True
    SQL.Strings = (
      'SELECT t1.sdparid, t1.sdid, t1.sdname, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDPARID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'WHERE sd1.sdisdelete<>1'
      'UNION'
      'SELECT SD.SDPARID, SD.SDID, SD.SDNAME, SD.SDISDELETE'
      'FROM SYS_DIC SD'
      'WHERE SD.SDID = :SDPARID and SD.sdisdelete<>1')
    UpdateObject = quSD
    GeneratorField.Field = 'SDID'
    GeneratorField.Generator = 'GEN_SYS_DIC'
    GeneratorField.IncrementBy = 3
    Left = 168
    Top = 80
    ParamData = <
      item
        DataType = ftString
        Name = 'SDPARID'
        ParamType = ptUnknown
        Value = 36
      end
      item
        DataType = ftString
        Name = 'SDPARID'
        ParamType = ptUnknown
      end>
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2303
    end
    object qSDSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object quSD: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  SDID,'
      '  SDPARID,'
      '  SDNAME'
      'from SYS_DIC '
      'where'
      '  SDID = :SDID')
    ModifySQL.Strings = (
      'update SYS_DIC'
      'set'
      '  SDID = :SDID,'
      '  SDNAME = trim (leading from :SDNAME),'
      '  SDPARID = :SDPARID'
      'where'
      '  SDID = :OLD_SDID')
    InsertSQL.Strings = (
      'insert into SYS_DIC'
      '  (SDID, SDNAME, SDPARID)'
      'values'
      '  (:SDID, trim (leading from :SDNAME) , :SDPARID)')
    DeleteSQL.Strings = (
      'update sys_dic s'
      'set s.sdisdelete=1'
      'where'
      '  SDID = :OLD_SDID')
    Left = 200
    Top = 80
  end
  object qChekChild: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39' '#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid')
    Left = 264
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SDID'
        ParamType = ptUnknown
      end>
  end
  object quProd: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  TPID,'
      '  TMID,'
      '  TPSDID,'
      '  BRUTTO,'
      '  NETTO,'
      '  TPUSERENTER,'
      '  TPTIMEENTER,'
      '  TPUSEREDIT,'
      '  TPTIMEEDIT,'
      '  TPISDELETE,'
      '  SDNAMES'
      'from f_techprod '
      'where'
      '  TPID = :TPID')
    ModifySQL.Strings = (
      'update f_techprod '
      'set'
      '  BRUTTO = :BRUTTO,'
      '  NETTO = :NETTO,'
      '  TMID = :TMID,'
      '  TPID = :TPID,'
      '  TPSDID = :TPSDID'
      'where'
      '  TPID = :OLD_TPID')
    InsertSQL.Strings = (
      'insert into f_techprod '
      '  (BRUTTO, NETTO, TMID, TPID, TPSDID)'
      'values'
      '  (:BRUTTO, :NETTO, :TMID, :TPID, :TPSDID)')
    DeleteSQL.Strings = (
      'update f_techprod t'
      'set t.tpisdelete=1'
      'where'
      '  t.TPID = :OLD_TPID')
    Left = 600
    Top = 96
  end
  object quTechMap: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  TMID,'
      '  TMSDID,'
      '  COOKING,'
      '  YIELD,'
      '  ENERGYVAL,'
      '  PROTEINS,'
      '  FATS,'
      '  CARBOHYDRATES,'
      '  CACALCIUM,'
      '  MAGNESIUM,'
      '  PHOSPHORUS,'
      '  FERRUM,'
      '  VIT_A,'
      '  VIT_B1,'
      '  VIT_B2,'
      '  VIT_PP,'
      '  VIT_C,'
      '  VIT_E,'
      '  TEMPERATURE,'
      '  REALIZATION,'
      '  NUMCOLLECTION,'
      '  NAMECOLLECTION,'
      '  TMUSERENTER,'
      '  TMTIMEENTER,'
      '  TMUSEREDIT,'
      '  TMTIMEEDIT,'
      '  TMISDELETE,'
      '  TMNAME,'
      '  TMCATEGORY'
      'from f_techmap '
      'where'
      '  TMID = :TMID')
    ModifySQL.Strings = (
      'update f_techmap'
      'set'
      '  CACALCIUM = :CACALCIUM,'
      '  CARBOHYDRATES = :CARBOHYDRATES,'
      '  COOKING = :COOKING,'
      '  ENERGYVAL = :ENERGYVAL,'
      '  FATS = :FATS,'
      '  FERRUM = :FERRUM,'
      '  MAGNESIUM = :MAGNESIUM,'
      '  NAMECOLLECTION = :NAMECOLLECTION,'
      '  NUMCOLLECTION = :NUMCOLLECTION,'
      '  PHOSPHORUS = :PHOSPHORUS,'
      '  PROTEINS = :PROTEINS,'
      '  REALIZATION = :REALIZATION,'
      '  TEMPERATURE = :TEMPERATURE,'
      '  TMCATEGORY = :TMCATEGORY,'
      '  TMID = :TMID,'
      '  TMNAME = :TMNAME,'
      '  TMSDID = :TMSDID,'
      '  VIT_A = :VIT_A,'
      '  VIT_B1 = :VIT_B1,'
      '  VIT_B2 = :VIT_B2,'
      '  VIT_C = :VIT_C,'
      '  VIT_E = :VIT_E,'
      '  VIT_PP = :VIT_PP,'
      '  YIELD = :YIELD'
      'where'
      '  TMID = :OLD_TMID')
    InsertSQL.Strings = (
      'insert into f_techmap'
      
        '  (CACALCIUM, CARBOHYDRATES, COOKING, ENERGYVAL, FATS, FERRUM, M' +
        'AGNESIUM, '
      
        '   NAMECOLLECTION, NUMCOLLECTION, PHOSPHORUS, PROTEINS, REALIZAT' +
        'ION, TEMPERATURE, '
      
        '   TMCATEGORY, TMID, TMNAME, TMSDID, VIT_A, VIT_B1, VIT_B2, VIT_' +
        'C, VIT_E, '
      '   VIT_PP, YIELD)'
      'values'
      
        '  (:CACALCIUM, :CARBOHYDRATES, :COOKING, :ENERGYVAL, :FATS, :FER' +
        'RUM, :MAGNESIUM, '
      
        '   :NAMECOLLECTION, :NUMCOLLECTION, :PHOSPHORUS, :PROTEINS, :REA' +
        'LIZATION, '
      
        '   :TEMPERATURE, :TMCATEGORY, :TMID, :TMNAME, :TMSDID, :VIT_A, :' +
        'VIT_B1, '
      '   :VIT_B2, :VIT_C, :VIT_E, :VIT_PP, :YIELD)')
    DeleteSQL.Strings = (
      'update f_techmap t'
      'set t.tmisdelete=1'
      'where'
      '  t.TMID = :OLD_TMID')
    Left = 560
    Top = 552
  end
  object dxBarManager1: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    PopupMenuLinks = <>
    UseSystemFont = True
    Left = 98
    Top = 207
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar7: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 6'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 259
      FloatTop = 168
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton22'
        end
        item
          Visible = True
          ItemName = 'dxBarButton25'
        end
        item
          Visible = True
          ItemName = 'dxBarButton23'
        end
        item
          Visible = True
          ItemName = 'dxBarButton24'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRecentItems = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarManager1Bar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 1'
      CaptionButtons = <>
      DockControl = dxBarDockControl2
      DockedDockControl = dxBarDockControl2
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 211
      FloatTop = 118
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton27'
        end
        item
          Visible = True
          ItemName = 'dxBarButton28'
        end
        item
          Visible = True
          ItemName = 'dxBarButton29'
        end
        item
          Visible = True
          ItemName = 'dxBarButton30'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRecentItems = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      CaptionButtons = <>
      DockControl = dxBarDockControl3
      DockedDockControl = dxBarDockControl3
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 151
      FloatTop = 130
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton31'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRecentItems = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarButton1: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton2: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton3: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1096#1072#1073#1083#1086#1085
      Visible = ivNever
      ImageIndex = 37
    end
    object dxBarButton5: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton6: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton7: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton8: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton9: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton10: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton11: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton12: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton13: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton14: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton15: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton16: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton17: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton18: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton19: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton20: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton21: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton22: TdxBarButton
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 51
      OnClick = dxBarButton22Click
    end
    object dxBarButton23: TdxBarButton
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
      OnClick = dxBarButton23Click
    end
    object dxBarButton24: TdxBarButton
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 46
      OnClick = dxBarButton24Click
    end
    object dxBarButton25: TdxBarButton
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1086#1090#1086#1084#1082#1072
      Visible = ivAlways
      ImageIndex = 41
      OnClick = dxBarButton25Click
    end
    object dxBarButton26: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton27: TdxBarButton
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 51
      OnClick = dxBarButton27Click
    end
    object dxBarButton28: TdxBarButton
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
      OnClick = dxBarButton28Click
    end
    object dxBarButton29: TdxBarButton
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 46
      OnClick = dxBarButton29Click
    end
    object dxBarButton30: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
      OnClick = dxBarButton30Click
    end
    object dxBarButton31: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
      OnClick = dxBarButton31Click
    end
  end
  object qCATEGORY: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      
        'select SDNAME, SDID as TMCATEGORY,SDPARID,sdisdelete from (SELEC' +
        'T t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = 37'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid)'
      'where sdisdelete=0'
      'order by 1')
    GeneratorField.Field = 'SDID'
    Left = 568
    Top = 488
    object qCATEGORYSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2303
    end
    object qCATEGORYTMCATEGORY: TIntegerField
      FieldName = 'TMCATEGORY'
      ProviderFlags = []
    end
    object qCATEGORYSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qCATEGORYSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object dsCATEGORY: TDataSource
    DataSet = qCATEGORY
    Left = 536
    Top = 488
  end
end
